home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / comm / misc / ifr11.lha / ifr / Install-IFR < prev   
Encoding:
Text File  |  1995-03-16  |  2.3 KB  |  104 lines
  1. ; script per l'installazione di IFR
  2. ; Should be run from WorkBench by double-clicking on the icon
  3. ; Requires a stack of 16000 bytes or more
  4.  
  5. (complete 0)
  6.  
  7. (set @default-dest "Work:")
  8.  
  9. (set version (/ (getversion) 65536))
  10. (set version2 36)
  11.  
  12. ; install on hard disk
  13. (set dest2 (askdir  (prompt "Select a disk or drawer for IFR")
  14.                     (default @default-dest)
  15.                     (help "Choose a destination disk or drawer that will contain"
  16.                            " IFR. The installation program will create the IFR drawer"
  17.                            " inside it."
  18.                     )
  19.            )
  20. )
  21.  
  22. (set dest1 (tackon dest2 "IFR"))
  23.  
  24. (set @default-dest dest1)
  25. (message "\n\nThe program will be installed in\n" 
  26.           dest1
  27. )
  28.  
  29. (makedir dest1 (safe) (infos))
  30.  
  31. (set error (trap 4
  32.     (copyfiles (source "")
  33.           (pattern "ifr#?")
  34.               (dest dest1)
  35.     )
  36.            )
  37. )
  38.  
  39. (if (> error 0) (message ("Dos error %ld " @ioerr)))
  40.  
  41. (complete 50)
  42.  
  43. (set fontdir (askdir  (prompt "Select a drawer for IFR font")
  44.                     (default "fonts:")
  45.                     (help "Choose a destination drawer that will contain"
  46.                           " the font used by IFR."
  47.                     )
  48.              )
  49. )
  50.  
  51. (set error (trap 4
  52.     (copyfiles (source "fonts")
  53.               (dest fontdir)
  54.               (all)
  55.     )
  56.            )
  57. )
  58.  
  59. (if (> error 0) (message ("Dos error %ld " @ioerr)))
  60.  
  61. (complete 75)
  62.  
  63. (set rexxdir (askdir  (prompt "Select a rexx drawer for supplied script")
  64.                     (default "rexx:")
  65.                     (help "Choose a destination drawer that will contain"
  66.                           " the supplied ARexx script for Spot. Create for"
  67.               " it a menu entry in Spot."
  68.                     )
  69.              )
  70. )
  71.  
  72. (set error (trap 4
  73.     (copyfiles (source "arexx")
  74.               (dest rexxdir)
  75.               (all)
  76.     )
  77.            )
  78. )
  79.  
  80. (if (> error 0) (message ("Dos error %ld " @ioerr)))
  81.  
  82. (complete 80)
  83.  
  84. (set comando (cat "assign IFR: \"" dest1 "\"") )
  85.  
  86. (startup "IFR"
  87.     (prompt "This assign will be added to your user-startup :\n\n"
  88.             comando
  89.     )
  90.     (help "No help available.")
  91.     (command comando)
  92. )
  93.  
  94. (makeassign "IFR" dest1)
  95.  
  96. (complete 100)
  97.  
  98. (exit    "Read ifr.guide for shareware instructions.\n\n"
  99.     "Feedback to\n\n"
  100.     "Internet : mario.cannistra@pmn.it\n\n"
  101.     "Fidonet  : 2:334/21.16\n\n"
  102.     "AmigaNet : 39:101/402.16"
  103. )
  104.